PD ROM 1/PD ROM Volume I - Macintosh Software from BMUG (1988).iso/Stacks/Hyper Education/Mathematics/Trig Formulas/card_4840.txt

Text File | 1988-04-19 | 5.3 KB | 251 lines

-- card: 4840 from stack: in
-- bmap block id: 2358
-- flags: 0000
-- background id: 2669
-- name:
----- HyperTalk script -----
on unhiliteAll
  repeat with num = 1 to 6
    set hilite of button num to false
  end repeat
end unhiliteAll



-- part 2 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=63 top=89 right=108 bottom=121
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Radians
----- HyperTalk script -----
on closeField
  unhiliteAll
  put (card field Radians * 180 / pi) mod 360 into temp
  put round(temp * 100) / 100 into card field Degrees
end closeField


-- part 3 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=63 top=112 right=131 bottom=121
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Degrees
----- HyperTalk script -----
on closeField
  unhiliteAll
  put (card field Degrees mod 360) * pi / 180 into temp
  put round(temp * 10000) / 10000 into card field Radians
end closeField


-- part 4 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=202 top=69 right=96 bottom=267
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  unhiliteAll
  put sin(card field Radians) into temp
  put round(temp * 10000) / 10000 into card field Result
  set hilite of target to true
end mouseUp



-- part 7 (field)
-- low flags: 00
-- high flags: 0002
-- rect: left=382 top=103 right=122 bottom=471
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Result


-- part 10 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=202 top=96 right=123 bottom=267
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  unhiliteAll
  put cos(card field Radians) into temp
  put round(temp * 10000) / 10000 into card field Result
  set hilite of target to true
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=202 top=123 right=150 bottom=267
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  unhiliteAll
  if (card field Degrees + 90) mod 180 is 0 then
    put "‚àû" into card field Result
  else
    put tan(card field Radians) into temp
    put round(temp * 10000) / 10000 into card field Result
  end if
  set hilite of target to true
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=285 top=69 right=96 bottom=350
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  unhiliteAll
  if abs(sin(card field Radians)) < 0.0001 then
    put "‚àû" into card field Result
  else
    put 1/sin(card field Radians) into temp
    put round(temp * 10000) / 10000 into card field Result
  end if
  set hilite of target to true
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=285 top=96 right=123 bottom=350
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  unhiliteAll
  if abs(cos(card field Radians)) < 0.0001 then
    put "‚àû" into card field Result
  else
    put 1/cos(card field Radians) into temp
    put round(temp * 10000) / 10000 into card field Result
  end if
  set hilite of target to true
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=285 top=123 right=150 bottom=350
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  unhiliteAll
  if card field Degrees mod 180 is 0 then
    put "‚àû" into card field Result
  else
    if (card field Degrees + 90) mod 180 is 0 then
      put 0 into card field Result
    else
      put 1/tan(card field Radians) into temp
      put round(temp * 10000) / 10000 into card field Result
    end if
  end if
  set hilite of target to true
end mouseUp



-- part 16 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=277 top=296 right=337 bottom=461
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go to card id 2869
end mouseUp




-- part contents for card part 7
----- text -----
0.5

-- part contents for card part 3
----- text -----
30

-- part contents for card part 2
----- text -----
0.5236